/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / calendar / cal-x.elc.z / cal-x.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 34 36 3a 31 33 20 31 | 39 39 38 0a 3b 3b 3b 20 |:46:13 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 63 61 6c 65 |s-20.3/l|isp/cale|
|000000a0| 6e 64 61 72 2f 63 61 6c | 2d 78 2e 65 6c 0a 3b 3b |ndar/cal|-x.el.;;|
|000000b0| 3b 20 65 6d 61 63 73 20 | 76 65 72 73 69 6f 6e 20 |; emacs |version |
|000000c0| 32 30 2e 34 20 22 45 6d | 65 72 61 6c 64 22 20 58 |20.4 "Em|erald" X|
|000000d0| 45 6d 61 63 73 20 20 4c | 75 63 69 64 2e 0a 3b 3b |Emacs  L|ucid..;;|
|000000e0| 3b 20 62 79 74 65 63 6f | 6d 70 20 76 65 72 73 69 |; byteco|mp versi|
|000000f0| 6f 6e 20 32 2e 32 35 20 | 58 45 6d 61 63 73 3b 20 |on 2.25 |XEmacs; |
|00000100| 32 32 2d 4d 61 72 2d 39 | 36 2e 0a 3b 3b 3b 20 6f |22-Mar-9|6..;;; o|
|00000110| 70 74 69 6d 69 7a 61 74 | 69 6f 6e 20 69 73 20 6f |ptimizat|ion is o|
|00000120| 6e 2e 0a 3b 3b 3b 20 74 | 68 69 73 20 66 69 6c 65 |n..;;; t|his file|
|00000130| 20 75 73 65 73 20 6f 70 | 63 6f 64 65 73 20 77 68 | uses op|codes wh|
|00000140| 69 63 68 20 64 6f 20 6e | 6f 74 20 65 78 69 73 74 |ich do n|ot exist|
|00000150| 20 69 6e 20 45 6d 61 63 | 73 20 31 39 2e 0a 0a 28 | in Emac|s 19...(|
|00000160| 69 66 20 28 61 6e 64 20 | 28 62 6f 75 6e 64 70 20 |if (and |(boundp |
|00000170| 27 65 6d 61 63 73 2d 76 | 65 72 73 69 6f 6e 29 0a |'emacs-v|ersion).|
|00000180| 09 20 28 6f 72 20 28 61 | 6e 64 20 28 62 6f 75 6e |. (or (a|nd (boun|
|00000190| 64 70 20 27 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |dp 'epoc|h::versi|
|000001a0| 6f 6e 29 20 65 70 6f 63 | 68 3a 3a 76 65 72 73 69 |on) epoc|h::versi|
|000001b0| 6f 6e 29 0a 09 20 20 20 | 20 20 28 73 74 72 69 6e |on)..   |  (strin|
|000001c0| 67 2d 6c 65 73 73 70 20 | 65 6d 61 63 73 2d 76 65 |g-lessp |emacs-ve|
|000001d0| 72 73 69 6f 6e 20 22 32 | 30 22 29 29 29 0a 20 20 |rsion "2|0"))).  |
|000001e0| 20 20 28 65 72 72 6f 72 | 20 22 60 63 61 6c 2d 78 |  (error| "`cal-x|
|000001f0| 2e 65 6c 27 20 77 61 73 | 20 63 6f 6d 70 69 6c 65 |.el' was| compile|
|00000200| 64 20 66 6f 72 20 45 6d | 61 63 73 20 32 30 22 29 |d for Em|acs 20")|
|00000210| 29 0a 0a 28 6f 72 20 28 | 62 6f 75 6e 64 70 20 27 |)..(or (|boundp '|
|00000220| 63 75 72 72 65 6e 74 2d | 6c 6f 61 64 2d 6c 69 73 |current-|load-lis|
|00000230| 74 29 20 28 73 65 74 71 | 20 63 75 72 72 65 6e 74 |t) (setq| current|
|00000240| 2d 6c 6f 61 64 2d 6c 69 | 73 74 20 6e 69 6c 29 29 |-load-li|st nil))|
|00000250| 0a 0a 0a 28 62 79 74 65 | 2d 63 6f 64 65 20 22 c0 |...(byte|-code ".|
|00000260| c1 21 88 c2 c3 21 ac 85 | c3 c1 4b 4d 88 c0 87 22 |.!...!..|..KM..."|
|00000270| 20 5b 72 65 71 75 69 72 | 65 20 63 61 6c 65 6e 64 | [requir|e calend|
|00000280| 61 72 20 66 62 6f 75 6e | 64 70 20 63 61 6c 65 6e |ar fboun|dp calen|
|00000290| 64 61 72 2d 62 61 73 69 | 63 2d 73 65 74 75 70 5d |dar-basi|c-setup]|
|000002a0| 20 32 29 0a 23 40 32 34 | 33 20 54 68 65 20 66 72 | 2).#@24|3 The fr|
|000002b0| 61 6d 65 20 73 65 74 20 | 75 70 20 6f 66 20 74 68 |ame set |up of th|
|000002c0| 65 20 63 61 6c 65 6e 64 | 61 72 2e 0a 54 68 65 20 |e calend|ar..The |
|000002d0| 63 68 6f 69 63 65 73 20 | 61 72 65 20 60 6f 6e 65 |choices |are `one|
|000002e0| 2d 66 72 61 6d 65 27 20 | 28 63 61 6c 65 6e 64 61 |-frame' |(calenda|
|000002f0| 72 20 61 6e 64 20 64 69 | 61 72 79 20 74 6f 67 65 |r and di|ary toge|
|00000300| 74 68 65 72 20 69 6e 20 | 6f 6e 65 20 73 65 70 61 |ther in |one sepa|
|00000310| 72 61 74 65 2c 0a 64 65 | 64 69 63 69 61 74 65 64 |rate,.de|diciated|
|00000320| 20 66 72 61 6d 65 29 20 | 6f 72 20 60 74 77 6f 2d | frame) |or `two-|
|00000330| 66 72 61 6d 65 73 27 20 | 28 63 61 6c 65 6e 64 61 |frames' |(calenda|
|00000340| 72 20 61 6e 64 20 64 69 | 61 72 79 20 69 6e 20 73 |r and di|ary in s|
|00000350| 65 70 61 72 61 74 65 2c | 20 64 65 64 69 63 61 74 |eparate,| dedicat|
|00000360| 65 64 0a 66 72 61 6d 65 | 73 29 3b 20 77 69 74 68 |ed.frame|s); with|
|00000370| 20 61 6e 79 20 6f 74 68 | 65 72 20 76 61 6c 75 65 | any oth|er value|
|00000380| 20 74 68 65 20 63 75 72 | 72 65 6e 74 20 66 72 61 | the cur|rent fra|
|00000390| 6d 65 20 69 73 20 75 73 | 65 64 2e 1f 0a 28 64 65 |me is us|ed...(de|
|000003a0| 66 76 61 72 20 63 61 6c | 65 6e 64 61 72 2d 73 65 |fvar cal|endar-se|
|000003b0| 74 75 70 20 27 6f 6e 65 | 2d 66 72 61 6d 65 20 28 |tup 'one|-frame (|
|000003c0| 23 24 20 2e 20 36 38 32 | 29 29 0a 23 40 31 34 34 |#$ . 682|)).#@144|
|000003d0| 20 43 68 6f 6f 73 65 20 | 62 65 74 77 65 65 6e 20 | Choose |between |
|000003e0| 74 68 65 20 6f 6e 65 20 | 66 72 61 6d 65 2c 20 74 |the one |frame, t|
|000003f0| 77 6f 20 66 72 61 6d 65 | 2c 20 6f 72 20 62 61 73 |wo frame|, or bas|
|00000400| 69 63 20 63 61 6c 65 6e | 64 61 72 20 64 69 73 70 |ic calen|dar disp|
|00000410| 6c 61 79 73 2e 0a 54 68 | 65 20 6f 72 69 67 69 6e |lays..Th|e origin|
|00000420| 61 6c 20 66 75 6e 63 74 | 69 6f 6e 20 60 63 61 6c |al funct|ion `cal|
|00000430| 65 6e 64 61 72 27 20 68 | 61 73 20 62 65 65 6e 20 |endar' h|as been |
|00000440| 72 65 6e 61 6d 65 64 20 | 60 63 61 6c 65 6e 64 61 |renamed |`calenda|
|00000450| 72 2d 62 61 73 69 63 2d | 73 65 74 75 70 27 2e 1f |r-basic-|setup'..|
|00000460| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 63 61 6c 65 |.(defali|as 'cale|
|00000470| 6e 64 61 72 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |ndar #[(|&optiona|
|00000480| 6c 20 61 72 67 29 20 22 | 08 c1 6b ab 84 c2 0b 21 |l arg) "|..k....!|
|00000490| 87 08 c4 6b ab 84 c5 0b | 21 87 c6 0b 21 87 22 20 |...k....|!...!." |
|000004a0| 5b 63 61 6c 65 6e 64 61 | 72 2d 73 65 74 75 70 20 |[calenda|r-setup |
|000004b0| 6f 6e 65 2d 66 72 61 6d | 65 20 63 61 6c 65 6e 64 |one-fram|e calend|
|000004c0| 61 72 2d 6f 6e 65 2d 66 | 72 61 6d 65 2d 73 65 74 |ar-one-f|rame-set|
|000004d0| 75 70 20 61 72 67 20 74 | 77 6f 2d 66 72 61 6d 65 |up arg t|wo-frame|
|000004e0| 73 20 63 61 6c 65 6e 64 | 61 72 2d 74 77 6f 2d 66 |s calend|ar-two-f|
|000004f0| 72 61 6d 65 2d 73 65 74 | 75 70 20 63 61 6c 65 6e |rame-set|up calen|
|00000500| 64 61 72 2d 62 61 73 69 | 63 2d 73 65 74 75 70 5d |dar-basi|c-setup]|
|00000510| 20 32 20 28 23 24 20 2e | 20 39 37 37 29 20 22 50 | 2 (#$ .| 977) "P|
|00000520| 22 5d 29 0a 23 40 34 31 | 20 46 72 61 6d 65 20 69 |"]).#@41| Frame i|
|00000530| 6e 20 77 68 69 63 68 20 | 74 6f 20 64 69 73 70 6c |n which |to displ|
|00000540| 61 79 20 74 68 65 20 63 | 61 6c 65 6e 64 61 72 2e |ay the c|alendar.|
|00000550| 1f 0a 28 64 65 66 76 61 | 72 20 63 61 6c 65 6e 64 |..(defva|r calend|
|00000560| 61 72 2d 66 72 61 6d 65 | 20 6e 69 6c 20 28 23 24 |ar-frame| nil (#$|
|00000570| 20 2e 20 31 33 32 31 29 | 29 0a 23 40 33 38 20 46 | . 1321)|).#@38 F|
|00000580| 72 61 6d 65 20 69 6e 20 | 77 68 69 63 68 20 74 6f |rame in |which to|
|00000590| 20 64 69 73 70 6c 61 79 | 20 74 68 65 20 64 69 61 | display| the dia|
|000005a0| 72 79 2e 1f 0a 28 64 65 | 66 76 61 72 20 64 69 61 |ry...(de|fvar dia|
|000005b0| 72 79 2d 66 72 61 6d 65 | 20 6e 69 6c 20 28 23 24 |ry-frame| nil (#$|
|000005c0| 20 2e 20 31 34 30 37 29 | 29 0a 23 40 31 31 34 20 | . 1407)|).#@114 |
|000005d0| 50 61 72 61 6d 65 74 65 | 72 73 20 6f 66 20 74 68 |Paramete|rs of th|
|000005e0| 65 20 64 69 61 72 79 20 | 66 72 61 6d 65 2c 20 69 |e diary |frame, i|
|000005f0| 66 20 74 68 65 20 64 69 | 61 72 79 20 69 73 20 69 |f the di|ary is i|
|00000600| 6e 20 69 74 73 20 6f 77 | 6e 20 66 72 61 6d 65 2e |n its ow|n frame.|
|00000610| 0a 4c 6f 63 61 74 69 6f | 6e 20 61 6e 64 20 63 6f |.Locatio|n and co|
|00000620| 6c 6f 72 20 73 68 6f 75 | 6c 64 20 62 65 20 73 65 |lor shou|ld be se|
|00000630| 74 20 69 6e 20 2e 58 64 | 65 66 61 75 6c 74 73 2e |t in .Xd|efaults.|
|00000640| 1f 0a 28 64 65 66 76 61 | 72 20 64 69 61 72 79 2d |..(defva|r diary-|
|00000650| 66 72 61 6d 65 2d 70 61 | 72 61 6d 65 74 65 72 73 |frame-pa|rameters|
|00000660| 20 27 28 28 6e 61 6d 65 | 20 2e 20 22 44 69 61 72 | '((name| . "Diar|
|00000670| 79 22 29 20 28 68 65 69 | 67 68 74 20 2e 20 31 30 |y") (hei|ght . 10|
|00000680| 29 20 28 77 69 64 74 68 | 20 2e 20 38 30 29 20 28 |) (width| . 80) (|
|00000690| 75 6e 73 70 6c 69 74 74 | 61 62 6c 65 20 2e 20 74 |unsplitt|able . t|
|000006a0| 29 20 28 66 6f 6e 74 20 | 2e 20 22 36 78 31 33 22 |) (font |. "6x13"|
|000006b0| 29 20 28 61 75 74 6f 2d | 6c 6f 77 65 72 20 2e 20 |) (auto-|lower . |
|000006c0| 74 29 20 28 61 75 74 6f | 2d 72 61 69 73 65 20 2e |t) (auto|-raise .|
|000006d0| 20 74 29 20 28 6d 69 6e | 69 62 75 66 66 65 72 29 | t) (min|ibuffer)|
|000006e0| 29 20 28 23 24 20 2e 20 | 31 34 38 38 29 29 0a 23 |) (#$ . |1488)).#|
|000006f0| 40 31 32 33 20 50 61 72 | 61 6d 65 74 65 72 73 20 |@123 Par|ameters |
|00000700| 6f 66 20 74 68 65 20 63 | 61 6c 65 6e 64 61 72 20 |of the c|alendar |
|00000710| 66 72 61 6d 65 2c 20 69 | 66 20 74 68 65 20 63 61 |frame, i|f the ca|
|00000720| 6c 65 6e 64 61 72 20 69 | 73 20 69 6e 20 61 20 73 |lendar i|s in a s|
|00000730| 65 70 61 72 61 74 65 20 | 66 72 61 6d 65 2e 0a 4c |eparate |frame..L|
|00000740| 6f 63 61 74 69 6f 6e 20 | 61 6e 64 20 63 6f 6c 6f |ocation |and colo|
|00000750| 72 20 73 68 6f 75 6c 64 | 20 62 65 20 73 65 74 20 |r should| be set |
|00000760| 69 6e 20 2e 58 64 65 66 | 61 75 6c 74 73 2e 1f 0a |in .Xdef|aults...|
|00000770| 28 64 65 66 76 61 72 20 | 63 61 6c 65 6e 64 61 72 |(defvar |calendar|
|00000780| 2d 66 72 61 6d 65 2d 70 | 61 72 61 6d 65 74 65 72 |-frame-p|arameter|
|00000790| 73 20 27 28 28 6e 61 6d | 65 20 2e 20 22 43 61 6c |s '((nam|e . "Cal|
|000007a0| 65 6e 64 61 72 22 29 20 | 28 6d 69 6e 69 62 75 66 |endar") |(minibuf|
|000007b0| 66 65 72 29 20 28 68 65 | 69 67 68 74 20 2e 20 31 |fer) (he|ight . 1|
|000007c0| 30 29 20 28 77 69 64 74 | 68 20 2e 20 38 30 29 20 |0) (widt|h . 80) |
|000007d0| 28 61 75 74 6f 2d 72 61 | 69 73 65 20 2e 20 74 29 |(auto-ra|ise . t)|
|000007e0| 20 28 61 75 74 6f 2d 6c | 6f 77 65 72 20 2e 20 74 | (auto-l|ower . t|
|000007f0| 29 20 28 66 6f 6e 74 20 | 2e 20 22 36 78 31 33 22 |) (font |. "6x13"|
|00000800| 29 20 28 75 6e 73 70 6c | 69 74 74 61 62 6c 65 20 |) (unspl|ittable |
|00000810| 2e 20 74 29 20 28 76 65 | 72 74 69 63 61 6c 2d 73 |. t) (ve|rtical-s|
|00000820| 63 72 6f 6c 6c 2d 62 61 | 72 73 29 29 20 28 23 24 |croll-ba|rs)) (#$|
|00000830| 20 2e 20 31 37 38 31 29 | 29 0a 23 40 31 32 30 20 | . 1781)|).#@120 |
|00000840| 50 61 72 61 6d 65 74 65 | 72 73 20 6f 66 20 74 68 |Paramete|rs of th|
|00000850| 65 20 66 72 61 6d 65 20 | 74 68 61 74 20 64 69 73 |e frame |that dis|
|00000860| 70 6c 61 79 73 20 62 6f | 74 68 20 74 68 65 20 63 |plays bo|th the c|
|00000870| 61 6c 65 6e 64 61 72 20 | 61 6e 64 20 74 68 65 20 |alendar |and the |
|00000880| 64 69 61 72 79 2e 0a 4c | 6f 63 61 74 69 6f 6e 20 |diary..L|ocation |
|00000890| 61 6e 64 20 63 6f 6c 6f | 72 20 73 68 6f 75 6c 64 |and colo|r should|
|000008a0| 20 62 65 20 73 65 74 20 | 69 6e 20 2e 58 64 65 66 | be set |in .Xdef|
|000008b0| 61 75 6c 74 73 2e 1f 0a | 28 64 65 66 76 61 72 20 |aults...|(defvar |
|000008c0| 63 61 6c 65 6e 64 61 72 | 2d 61 6e 64 2d 64 69 61 |calendar|-and-dia|
|000008d0| 72 79 2d 66 72 61 6d 65 | 2d 70 61 72 61 6d 65 74 |ry-frame|-paramet|
|000008e0| 65 72 73 20 27 28 28 6e | 61 6d 65 20 2e 20 22 43 |ers '((n|ame . "C|
|000008f0| 61 6c 65 6e 64 61 72 22 | 29 20 28 68 65 69 67 68 |alendar"|) (heigh|
|00000900| 74 20 2e 20 32 38 29 20 | 28 77 69 64 74 68 20 2e |t . 28) |(width .|
|00000910| 20 38 30 29 20 28 6d 69 | 6e 69 62 75 66 66 65 72 | 80) (mi|nibuffer|
|00000920| 29 20 28 66 6f 6e 74 20 | 2e 20 22 36 78 31 33 22 |) (font |. "6x13"|
|00000930| 29 20 28 61 75 74 6f 2d | 72 61 69 73 65 20 2e 20 |) (auto-|raise . |
|00000940| 74 29 20 28 61 75 74 6f | 2d 6c 6f 77 65 72 20 2e |t) (auto|-lower .|
|00000950| 20 74 29 29 20 28 23 24 | 20 2e 20 32 31 31 32 29 | t)) (#$| . 2112)|
|00000960| 29 0a 23 40 31 33 33 20 | 48 6f 6f 6b 73 20 74 6f |).#@133 |Hooks to|
|00000970| 20 62 65 20 72 75 6e 20 | 6a 75 73 74 20 61 66 74 | be run |just aft|
|00000980| 65 72 20 73 65 74 74 69 | 6e 67 20 75 70 20 61 20 |er setti|ng up a |
|00000990| 63 61 6c 65 6e 64 61 72 | 20 66 72 61 6d 65 2e 0a |calendar| frame..|
|000009a0| 43 61 6e 20 62 65 20 75 | 73 65 64 20 74 6f 20 63 |Can be u|sed to c|
|000009b0| 68 61 6e 67 65 20 66 72 | 61 6d 65 20 70 61 72 61 |hange fr|ame para|
|000009c0| 6d 65 74 65 72 73 2c 20 | 73 75 63 68 20 61 73 20 |meters, |such as |
|000009d0| 66 6f 6e 74 2c 20 63 6f | 6c 6f 72 2c 20 6c 6f 63 |font, co|lor, loc|
|000009e0| 61 74 69 6f 6e 2c 20 65 | 74 63 2e 1f 0a 28 64 65 |ation, e|tc...(de|
|000009f0| 66 76 61 72 20 63 61 6c | 65 6e 64 61 72 2d 61 66 |fvar cal|endar-af|
|00000a00| 74 65 72 2d 66 72 61 6d | 65 2d 73 65 74 75 70 2d |ter-fram|e-setup-|
|00000a10| 68 6f 6f 6b 73 20 6e 69 | 6c 20 28 23 24 20 2e 20 |hooks ni|l (#$ . |
|00000a20| 32 34 30 38 29 29 0a 23 | 40 34 38 20 52 65 74 75 |2408)).#|@48 Retu|
|00000a30| 72 6e 20 74 20 69 66 20 | 6e 6f 74 20 72 75 6e 6e |rn t if |not runn|
|00000a40| 69 6e 67 20 75 6e 64 65 | 72 20 61 20 77 69 6e 64 |ing unde|r a wind|
|00000a50| 6f 77 20 73 79 73 74 65 | 6d 2e 1f 0a 28 64 65 66 |ow syste|m...(def|
|00000a60| 61 6c 69 61 73 20 27 63 | 61 6c 65 6e 64 61 72 2d |alias 'c|alendar-|
|00000a70| 6e 6f 74 2d 75 73 69 6e | 67 2d 77 69 6e 64 6f 77 |not-usin|g-window|
|00000a80| 2d 73 79 73 74 65 6d 2d | 70 20 23 5b 6e 69 6c 20 |-system-|p #[nil |
|00000a90| 22 c0 c1 21 ab 88 c1 c2 | 20 21 c3 61 3f 87 0c 3f |"..!....| !.a?..?|
|00000aa0| 87 22 20 5b 66 62 6f 75 | 6e 64 70 20 64 65 76 69 |." [fbou|ndp devi|
|00000ab0| 63 65 2d 74 79 70 65 20 | 73 65 6c 65 63 74 65 64 |ce-type |selected|
|00000ac0| 2d 64 65 76 69 63 65 20 | 78 20 77 69 6e 64 6f 77 |-device |x window|
|00000ad0| 2d 73 79 73 74 65 6d 5d | 20 32 20 28 23 24 20 2e |-system]| 2 (#$ .|
|00000ae0| 20 32 36 30 34 29 5d 29 | 0a 23 40 35 37 20 44 65 | 2604)])|.#@57 De|
|00000af0| 69 63 6f 6e 69 66 79 20 | 74 68 65 20 67 69 76 65 |iconify |the give|
|00000b00| 6e 20 66 72 61 6d 65 20 | 69 66 20 69 74 20 69 73 |n frame |if it is|
|00000b10| 20 63 75 72 72 65 6e 74 | 6c 79 20 69 63 6f 6e 69 | current|ly iconi|
|00000b20| 66 69 65 64 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |fied...(|defalias|
|00000b30| 20 27 63 61 6c 65 6e 64 | 61 72 2d 64 65 69 63 6f | 'calend|ar-deico|
|00000b40| 6e 69 66 79 2d 66 72 61 | 6d 65 20 23 5b 28 66 72 |nify-fra|me #[(fr|
|00000b50| 61 6d 65 29 20 22 c0 c1 | 5c 6e 5c 22 ab 89 c3 0c |ame) "..|\n\"....|
|00000b60| 21 ad 91 c5 0c 21 87 c6 | c7 c8 0c 21 5c 22 41 c9 |!....!..|...!\"A.|
|00000b70| 61 ad 82 ca 20 87 22 20 | 5b 73 74 72 69 6e 67 2d |a... ." |[string-|
|00000b80| 6d 61 74 63 68 20 22 58 | 45 6d 61 63 73 22 20 65 |match "X|Emacs" e|
|00000b90| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 20 66 72 61 |macs-ver|sion fra|
|00000ba0| 6d 65 2d 69 63 6f 6e 69 | 66 69 65 64 2d 70 20 66 |me-iconi|fied-p f|
|00000bb0| 72 61 6d 65 20 64 65 69 | 63 6f 6e 69 66 79 2d 66 |rame dei|conify-f|
|00000bc0| 72 61 6d 65 20 61 73 73 | 6f 63 20 76 69 73 69 62 |rame ass|oc visib|
|00000bd0| 69 6c 69 74 79 20 66 72 | 61 6d 65 2d 70 61 72 61 |ility fr|ame-para|
|00000be0| 6d 65 74 65 72 73 20 69 | 63 6f 6e 20 69 63 6f 6e |meters i|con icon|
|00000bf0| 69 66 79 2d 6f 72 2d 64 | 65 69 63 6f 6e 69 66 79 |ify-or-d|eiconify|
|00000c00| 2d 66 72 61 6d 65 5d 20 | 34 20 28 23 24 20 2e 20 |-frame] |4 (#$ . |
|00000c10| 32 37 39 38 29 5d 29 0a | 23 40 37 37 20 53 74 61 |2798)]).|#@77 Sta|
|00000c20| 72 74 20 63 61 6c 65 6e | 64 61 72 20 61 6e 64 20 |rt calen|dar and |
|00000c30| 64 69 73 70 6c 61 79 20 | 69 74 20 69 6e 20 61 20 |display |it in a |
|00000c40| 64 65 64 69 63 61 74 65 | 64 20 66 72 61 6d 65 20 |dedicate|d frame |
|00000c50| 74 6f 67 65 74 68 65 72 | 20 77 69 74 68 20 74 68 |together| with th|
|00000c60| 65 20 64 69 61 72 79 2e | 1f 0a 28 64 65 66 61 6c |e diary.|..(defal|
|00000c70| 69 61 73 20 27 63 61 6c | 65 6e 64 61 72 2d 6f 6e |ias 'cal|endar-on|
|00000c80| 65 2d 66 72 61 6d 65 2d | 73 65 74 75 70 20 23 5b |e-frame-|setup #[|
|00000c90| 28 26 6f 70 74 69 6f 6e | 61 6c 20 61 72 67 29 20 |(&option|al arg) |
|00000ca0| 22 c0 20 ab 84 c1 5c 6e | 21 87 c3 0c 21 ab 84 c5 |". ...\n|!...!...|
|00000cb0| 0c 21 88 c3 0e 06 21 ab | 85 c5 0e 06 21 88 c7 c8 |.!....!.|....!...|
|00000cc0| 1e 09 1e 5c 6e cb 8b 2a | 87 22 20 5b 63 61 6c 65 |...\n..*|." [cale|
|00000cd0| 6e 64 61 72 2d 6e 6f 74 | 2d 75 73 69 6e 67 2d 77 |ndar-not|-using-w|
|00000ce0| 69 6e 64 6f 77 2d 73 79 | 73 74 65 6d 2d 70 20 63 |indow-sy|stem-p c|
|00000cf0| 61 6c 65 6e 64 61 72 2d | 62 61 73 69 63 2d 73 65 |alendar-|basic-se|
|00000d00| 74 75 70 20 61 72 67 20 | 66 72 61 6d 65 2d 6c 69 |tup arg |frame-li|
|00000d10| 76 65 2d 70 20 63 61 6c | 65 6e 64 61 72 2d 66 72 |ve-p cal|endar-fr|
|00000d20| 61 6d 65 20 64 65 6c 65 | 74 65 2d 66 72 61 6d 65 |ame dele|te-frame|
|00000d30| 20 64 69 61 72 79 2d 66 | 72 61 6d 65 20 6e 69 6c | diary-f|rame nil|
|00000d40| 20 74 20 76 69 65 77 2d | 64 69 61 72 79 2d 65 6e | t view-|diary-en|
|00000d50| 74 72 69 65 73 2d 69 6e | 69 74 69 61 6c 6c 79 20 |tries-in|itially |
|00000d60| 73 70 65 63 69 61 6c 2d | 64 69 73 70 6c 61 79 2d |special-|display-|
|00000d70| 62 75 66 66 65 72 2d 6e | 61 6d 65 73 20 28 28 62 |buffer-n|ames ((b|
|00000d80| 79 74 65 2d 63 6f 64 65 | 20 22 8a c0 09 21 12 c3 |yte-code| "...!..|
|00000d90| c4 21 88 c5 5c 6e 21 88 | c6 5c 6e 21 88 c7 0e 08 |.!..\n!.|.\n!....|
|00000da0| 21 88 c9 ca 20 cb 5c 22 | 88 c9 cc cd 0e 0e 73 ac |!... .\"|......s.|
|00000db0| 86 cf 0e 10 21 aa 8d d1 | d2 0e 13 21 21 ac 83 d4 |....!...|...!!...|
|00000dc0| 20 88 0e 13 21 d5 5c 22 | 29 87 22 20 5b 6d 61 6b | ...!.\"|)." [mak|
|00000dd0| 65 2d 66 72 61 6d 65 20 | 63 61 6c 65 6e 64 61 72 |e-frame |calendar|
|00000de0| 2d 61 6e 64 2d 64 69 61 | 72 79 2d 66 72 61 6d 65 |-and-dia|ry-frame|
|00000df0| 2d 70 61 72 61 6d 65 74 | 65 72 73 20 63 61 6c 65 |-paramet|ers cale|
|00000e00| 6e 64 61 72 2d 66 72 61 | 6d 65 20 72 75 6e 2d 68 |ndar-fra|me run-h|
|00000e10| 6f 6f 6b 73 20 63 61 6c | 65 6e 64 61 72 2d 61 66 |ooks cal|endar-af|
|00000e20| 74 65 72 2d 66 72 61 6d | 65 2d 73 65 74 75 70 2d |ter-fram|e-setup-|
|00000e30| 68 6f 6f 6b 73 20 73 65 | 6c 65 63 74 2d 66 72 61 |hooks se|lect-fra|
|00000e40| 6d 65 20 63 61 6c 65 6e | 64 61 72 2d 64 65 69 63 |me calen|dar-deic|
|00000e50| 6f 6e 69 66 79 2d 66 72 | 61 6d 65 20 63 61 6c 65 |onify-fr|ame cale|
|00000e60| 6e 64 61 72 2d 62 61 73 | 69 63 2d 73 65 74 75 70 |ndar-bas|ic-setup|
|00000e70| 20 61 72 67 20 73 65 74 | 2d 77 69 6e 64 6f 77 2d | arg set|-window-|
|00000e80| 64 65 64 69 63 61 74 65 | 64 2d 70 20 73 65 6c 65 |dedicate|d-p sele|
|00000e90| 63 74 65 64 2d 77 69 6e | 64 6f 77 20 63 61 6c 65 |cted-win|dow cale|
|00000ea0| 6e 64 61 72 20 64 69 73 | 70 6c 61 79 2d 62 75 66 |ndar dis|play-buf|
|00000eb0| 66 65 72 20 66 61 6e 63 | 79 2d 64 69 61 72 79 2d |fer fanc|y-diary-|
|00000ec0| 64 69 73 70 6c 61 79 20 | 64 69 61 72 79 2d 64 69 |display |diary-di|
|00000ed0| 73 70 6c 61 79 2d 68 6f | 6f 6b 20 67 65 74 2d 66 |splay-ho|ok get-f|
|00000ee0| 69 6c 65 2d 62 75 66 66 | 65 72 20 64 69 61 72 79 |ile-buff|er diary|
|00000ef0| 2d 66 69 6c 65 20 62 75 | 66 66 65 72 70 20 67 65 |-file bu|fferp ge|
|00000f00| 74 2d 62 75 66 66 65 72 | 20 66 61 6e 63 79 2d 64 |t-buffer| fancy-d|
|00000f10| 69 61 72 79 2d 62 75 66 | 66 65 72 20 6d 61 6b 65 |iary-buf|fer make|
|00000f20| 2d 66 61 6e 63 79 2d 64 | 69 61 72 79 2d 62 75 66 |-fancy-d|iary-buf|
|00000f30| 66 65 72 20 64 69 61 72 | 79 5d 20 35 29 29 5d 20 |fer diar|y] 5))] |
|00000f40| 32 20 28 23 24 20 2e 20 | 33 31 30 31 29 5d 29 0a |2 (#$ . |3101)]).|
|00000f50| 23 40 35 37 20 53 74 61 | 72 74 20 63 61 6c 65 6e |#@57 Sta|rt calen|
|00000f60| 64 61 72 20 61 6e 64 20 | 64 69 61 72 79 20 69 6e |dar and |diary in|
|00000f70| 20 73 65 70 61 72 61 74 | 65 2c 20 64 65 64 69 63 | separat|e, dedic|
|00000f80| 61 74 65 64 20 66 72 61 | 6d 65 73 2e 1f 0a 28 64 |ated fra|mes...(d|
|00000f90| 65 66 61 6c 69 61 73 20 | 27 63 61 6c 65 6e 64 61 |efalias |'calenda|
|00000fa0| 72 2d 74 77 6f 2d 66 72 | 61 6d 65 2d 73 65 74 75 |r-two-fr|ame-setu|
|00000fb0| 70 20 23 5b 28 26 6f 70 | 74 69 6f 6e 61 6c 20 61 |p #[(&op|tional a|
|00000fc0| 72 67 29 20 22 c0 20 ab | 84 c1 5c 6e 21 87 c3 0c |rg) ". .|..\n!...|
|00000fd0| 21 ab 84 c5 0c 21 88 c3 | 0e 06 21 ab 85 c5 0e 06 |!....!..|..!.....|
|00000fe0| 21 88 c7 89 89 1e 08 1e | 09 1e 5c 6e cb 8b 2b 87 |!.......|..\n..+.|
|00000ff0| 22 20 5b 63 61 6c 65 6e | 64 61 72 2d 6e 6f 74 2d |" [calen|dar-not-|
|00001000| 75 73 69 6e 67 2d 77 69 | 6e 64 6f 77 2d 73 79 73 |using-wi|ndow-sys|
|00001010| 74 65 6d 2d 70 20 63 61 | 6c 65 6e 64 61 72 2d 62 |tem-p ca|lendar-b|
|00001020| 61 73 69 63 2d 73 65 74 | 75 70 20 61 72 67 20 66 |asic-set|up arg f|
|00001030| 72 61 6d 65 2d 6c 69 76 | 65 2d 70 20 63 61 6c 65 |rame-liv|e-p cale|
|00001040| 6e 64 61 72 2d 66 72 61 | 6d 65 20 64 65 6c 65 74 |ndar-fra|me delet|
|00001050| 65 2d 66 72 61 6d 65 20 | 64 69 61 72 79 2d 66 72 |e-frame |diary-fr|
|00001060| 61 6d 65 20 6e 69 6c 20 | 73 70 65 63 69 61 6c 2d |ame nil |special-|
|00001070| 64 69 73 70 6c 61 79 2d | 62 75 66 66 65 72 2d 6e |display-|buffer-n|
|00001080| 61 6d 65 73 20 76 69 65 | 77 2d 64 69 61 72 79 2d |ames vie|w-diary-|
|00001090| 65 6e 74 72 69 65 73 2d | 69 6e 69 74 69 61 6c 6c |entries-|initiall|
|000010a0| 79 20 70 6f 70 2d 75 70 | 2d 77 69 6e 64 6f 77 73 |y pop-up|-windows|
|000010b0| 20 28 28 62 79 74 65 2d | 63 6f 64 65 20 22 8a c0 | ((byte-|code "..|
|000010c0| 09 21 88 29 c2 0b 21 14 | c5 c6 21 88 c7 0c 21 88 |.!.)..!.|..!...!.|
|000010d0| c8 0c 21 88 c9 0e 5c 6e | 21 88 cb cc 20 cd 5c 22 |..!...\n|!... .\"|
|000010e0| 88 c2 0e 0e 21 16 0f c5 | c6 21 88 c7 0e 0f 21 88 |....!...|.!....!.|
|000010f0| c8 0e 0f 21 88 8a d0 20 | 88 29 cb c9 d1 0e 12 73 |...!... |.).....s|
|00001100| ac 86 d3 0e 14 21 aa 8d | d5 d6 0e 17 21 21 ac 83 |.....!..|....!!..|
|00001110| d8 20 88 0e 17 21 d0 5c | 22 87 22 20 5b 63 61 6c |. ...!.\|"." [cal|
|00001120| 65 6e 64 61 72 2d 62 61 | 73 69 63 2d 73 65 74 75 |endar-ba|sic-setu|
|00001130| 70 20 61 72 67 20 6d 61 | 6b 65 2d 66 72 61 6d 65 |p arg ma|ke-frame|
|00001140| 20 63 61 6c 65 6e 64 61 | 72 2d 66 72 61 6d 65 2d | calenda|r-frame-|
|00001150| 70 61 72 61 6d 65 74 65 | 72 73 20 63 61 6c 65 6e |paramete|rs calen|
|00001160| 64 61 72 2d 66 72 61 6d | 65 20 72 75 6e 2d 68 6f |dar-fram|e run-ho|
|00001170| 6f 6b 73 20 63 61 6c 65 | 6e 64 61 72 2d 61 66 74 |oks cale|ndar-aft|
|00001180| 65 72 2d 66 72 61 6d 65 | 2d 73 65 74 75 70 2d 68 |er-frame|-setup-h|
|00001190| 6f 6f 6b 73 20 73 65 6c | 65 63 74 2d 66 72 61 6d |ooks sel|ect-fram|
|000011a0| 65 20 63 61 6c 65 6e 64 | 61 72 2d 64 65 69 63 6f |e calend|ar-deico|
|000011b0| 6e 69 66 79 2d 66 72 61 | 6d 65 20 64 69 73 70 6c |nify-fra|me displ|
|000011c0| 61 79 2d 62 75 66 66 65 | 72 20 63 61 6c 65 6e 64 |ay-buffe|r calend|
|000011d0| 61 72 2d 62 75 66 66 65 | 72 20 73 65 74 2d 77 69 |ar-buffe|r set-wi|
|000011e0| 6e 64 6f 77 2d 64 65 64 | 69 63 61 74 65 64 2d 70 |ndow-ded|icated-p|
|000011f0| 20 73 65 6c 65 63 74 65 | 64 2d 77 69 6e 64 6f 77 | selecte|d-window|
|00001200| 20 63 61 6c 65 6e 64 61 | 72 20 64 69 61 72 79 2d | calenda|r diary-|
|00001210| 66 72 61 6d 65 2d 70 61 | 72 61 6d 65 74 65 72 73 |frame-pa|rameters|
|00001220| 20 64 69 61 72 79 2d 66 | 72 61 6d 65 20 64 69 61 | diary-f|rame dia|
|00001230| 72 79 20 66 61 6e 63 79 | 2d 64 69 61 72 79 2d 64 |ry fancy|-diary-d|
|00001240| 69 73 70 6c 61 79 20 64 | 69 61 72 79 2d 64 69 73 |isplay d|iary-dis|
|00001250| 70 6c 61 79 2d 68 6f 6f | 6b 20 67 65 74 2d 66 69 |play-hoo|k get-fi|
|00001260| 6c 65 2d 62 75 66 66 65 | 72 20 64 69 61 72 79 2d |le-buffe|r diary-|
|00001270| 66 69 6c 65 20 62 75 66 | 66 65 72 70 20 67 65 74 |file buf|ferp get|
|00001280| 2d 62 75 66 66 65 72 20 | 66 61 6e 63 79 2d 64 69 |-buffer |fancy-di|
|00001290| 61 72 79 2d 62 75 66 66 | 65 72 20 6d 61 6b 65 2d |ary-buff|er make-|
|000012a0| 66 61 6e 63 79 2d 64 69 | 61 72 79 2d 62 75 66 66 |fancy-di|ary-buff|
|000012b0| 65 72 5d 20 35 29 29 5d | 20 33 20 28 23 24 20 2e |er] 5))]| 3 (#$ .|
|000012c0| 20 33 39 32 35 29 5d 29 | 0a 28 64 65 66 61 6c 69 | 3925)])|.(defali|
|000012d0| 61 73 20 27 6d 61 6b 65 | 2d 66 61 6e 63 79 2d 64 |as 'make|-fancy-d|
|000012e0| 69 61 72 79 2d 62 75 66 | 66 65 72 20 23 5b 6e 69 |iary-buf|fer #[ni|
|000012f0| 6c 20 22 8a c0 09 21 71 | 88 c2 13 c4 c5 21 88 c6 |l "...!q|.....!..|
|00001300| c7 21 88 c8 20 88 c9 c2 | 21 88 ca 89 13 29 87 22 |.!.. ...|!....)."|
|00001310| 20 5b 67 65 74 2d 62 75 | 66 66 65 72 2d 63 72 65 | [get-bu|ffer-cre|
|00001320| 61 74 65 20 66 61 6e 63 | 79 2d 64 69 61 72 79 2d |ate fanc|y-diary-|
|00001330| 62 75 66 66 65 72 20 6e | 69 6c 20 62 75 66 66 65 |buffer n|il buffe|
|00001340| 72 2d 72 65 61 64 2d 6f | 6e 6c 79 20 6d 61 6b 65 |r-read-o|nly make|
|00001350| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00001360| 6d 6f 64 65 2d 6c 69 6e | 65 2d 66 6f 72 6d 61 74 |mode-lin|e-format|
|00001370| 20 63 61 6c 65 6e 64 61 | 72 2d 73 65 74 2d 6d 6f | calenda|r-set-mo|
|00001380| 64 65 2d 6c 69 6e 65 20 | 22 44 69 61 72 79 20 45 |de-line |"Diary E|
|00001390| 6e 74 72 69 65 73 22 20 | 65 72 61 73 65 2d 62 75 |ntries" |erase-bu|
|000013a0| 66 66 65 72 20 73 65 74 | 2d 62 75 66 66 65 72 2d |ffer set|-buffer-|
|000013b0| 6d 6f 64 69 66 69 65 64 | 2d 70 20 74 5d 20 32 5d |modified|-p t] 2]|
|000013c0| 29 0a 28 62 79 74 65 2d | 63 6f 64 65 20 22 c0 c1 |).(byte-|code "..|
|000013d0| 5c 6e 5c 22 ac 93 c3 0c | c5 0e 06 0e 07 0e 08 c9 |\n\"....|........|
|000013e0| 0e 5c 6e 21 0e 0b af 06 | 5c 22 14 cc cd 21 88 ce |.\n!....|\"...!..|
|000013f0| cf 21 87 22 20 5b 73 74 | 72 69 6e 67 2d 6d 61 74 |.!." [st|ring-mat|
|00001400| 63 68 20 22 58 45 6d 61 | 63 73 22 20 65 6d 61 63 |ch "XEma|cs" emac|
|00001410| 73 2d 76 65 72 73 69 6f | 6e 20 61 70 70 65 6e 64 |s-versio|n append|
|00001420| 20 73 70 65 63 69 61 6c | 2d 64 69 73 70 6c 61 79 | special|-display|
|00001430| 2d 62 75 66 66 65 72 2d | 6e 61 6d 65 73 20 22 2a |-buffer-|names "*|
|00001440| 59 61 68 72 7a 65 69 74 | 73 2a 22 20 6c 75 6e 61 |Yahrzeit|s*" luna|
|00001450| 72 2d 70 68 61 73 65 73 | 2d 62 75 66 66 65 72 20 |r-phases|-buffer |
|00001460| 68 6f 6c 69 64 61 79 2d | 62 75 66 66 65 72 20 66 |holiday-|buffer f|
|00001470| 61 6e 63 79 2d 64 69 61 | 72 79 2d 62 75 66 66 65 |ancy-dia|ry-buffe|
|00001480| 72 20 67 65 74 2d 66 69 | 6c 65 2d 62 75 66 66 65 |r get-fi|le-buffe|
|00001490| 72 20 64 69 61 72 79 2d | 66 69 6c 65 20 63 61 6c |r diary-|file cal|
|000014a0| 65 6e 64 61 72 2d 62 75 | 66 66 65 72 20 72 75 6e |endar-bu|ffer run|
|000014b0| 2d 68 6f 6f 6b 73 20 63 | 61 6c 2d 78 2d 6c 6f 61 |-hooks c|al-x-loa|
|000014c0| 64 2d 68 6f 6f 6b 20 70 | 72 6f 76 69 64 65 20 63 |d-hook p|rovide c|
|000014d0| 61 6c 2d 78 5d 20 38 29 | 0a                      |al-x] 8)|.       |
+--------+-------------------------+-------------------------+--------+--------+